﻿Imports System.IO

Public Class Guardado
    Dim listajug1 As List(Of String)
    Public Sub LeerFichero()
        Dim sr As New StreamReader("save.txt")
        Dim linea As String
        Dim arrayInfoJugador1() As String
        Do Until sr.EndOfStream
            linea = sr.ReadLine
            arrayInfoJugador1 = linea.Split("*")

        Loop

    End Sub

    Public Sub GuardarInfoJugador1()
        Dim sw As New StreamWriter("saveJugador1.txt")
        For Each bat In Jugador1.Batallones
            For Each unidad In bat.Tropas
                sw.WriteLine(bat.Localizacion.ToString & "*" & unidad.Ataque & "*" & unidad.Defensa & "*" & unidad.Velocidad & "*" & unidad.Vida & "*" & unidad.Fuerza & "*" & unidad.Disciplina & "*" & unidad.Tamaño)
            Next
        Next
        sw.Close()
        sw = New StreamWriter("saveJugador1Base.txt")
        sw.WriteLine(Jugador1.miEstructura.Coordenadas.ToString)
    End Sub

    Public Sub GuardarInfoJugador2()
        Dim sw As New StreamWriter("saveJugador2.txt")
        For Each bat In Jugador2.Batallones
            For Each unidad In bat.Tropas
                sw.WriteLine(bat.Localizacion.ToString & "*" & unidad.Ataque & "*" & unidad.Defensa & "*" & unidad.Velocidad & "*" & unidad.Vida & "*" & unidad.Fuerza & "*" & unidad.Disciplina & "*" & unidad.Tamaño)

            Next
        Next
        sw.Close()
        sw = New StreamWriter("saveJugador2Base.txt")
        sw.WriteLine(Jugador2.miEstructura.Coordenadas.ToString)
    End Sub

    Public Sub GuardarMapa()
        Dim sw As New StreamWriter("saveMap.txt")
        For i As Integer = 0 To miMapa.diseñoMapa.GetLength(0) - 1
            Dim linea As String = ""
            For j As Integer = 0 To miMapa.diseñoMapa.GetLength(0) - 1
                linea &= miMapa.diseñoMapa(i, j) & "*"
                'preguntar si funciona con write o hace falta writeline
            Next
            linea.Remove(linea.Length - 1)
            sw.WriteLine(linea)
        Next

    End Sub

End Class
